home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / QDOS2.lha / QLsource / ROMsrc / SYS / PROCS5_asm < prev    next >
Text File  |  1995-08-27  |  2KB  |  58 lines
  1. */beginfile PROCS5_asm
  2. ; --------------------------------------------------------------
  3. ; PROCS5_asm - BASIC bits
  4. ;        - last modified 27/08/95
  5. ; QDOS-Amiga sources by Rainer Kowallik
  6. ;    ...some changes by Mark J Swift
  7. ; --------------------------------------------------------------
  8. ; Subroutine for READ , EOF
  9. ; position pointer to next instruction of precompiled BASIC
  10. L066FA:
  11.     MOVE.L    BV_LINUM(A6),-(A7) ;current line number
  12.     MOVE.L    BV_INLIN(A6),-(A7) ;Processing in line
  13.                 ; clause or not
  14.     MOVE.W    BV_STMNT(A6),-(A7) ;current stmnt on line
  15.     MOVE.L    A4,-(A7)
  16.     JSR    L0958E(PC)    ;*/undomodify BSR L0958E
  17.     BNE.S    L06784
  18.     MOVE.W    BV_DALNO(A6),D4    ;Current DATA line number
  19.     JSR    L09FA2(PC)    ;*/undomodify BSR L09FA2
  20.     JSR    L0A96A(PC)    ;*/undomodify BSR L0A96A
  21.     BNE.S    L06784
  22.     MOVE.B    BV_DASTM(A6),D4    ;Current DATA stmnt number
  23.     JSR    L0A00A(PC)    ;*/undomodify BSR L0A00A
  24.     JSR    L0A56C(PC)    ;*/undomodify BSR L0A56C
  25.     CMPI.W    #$8118,D1
  26.     BNE.S    L0674A
  27.     MOVE.B    BV_DAITM(A6),D5    ;Next DATA item to read
  28.     ADDQ.B    #1,BV_DAITM(A6)    ;Next DATA item to read
  29. L06736    ADDQ.W    #2,A4
  30.     JSR    L0A56C(PC)    ;*/undomodify BSR L0A56C
  31.     SUBQ.B    #1,D5
  32.     BEQ.S    L0676E
  33.     MOVE.W    #$8404,D4
  34.     JSR    L0A5E0(PC)    ;*/undomodify BSR L0A5E0
  35.     BEQ.S    L06736
  36. L0674A    JSR    L0A60E(PC)    ;*/undomodify BSR L0A60E
  37.     BNE.S    L06784
  38.     JSR    L0A56C(PC)    ;*/undomodify BSR L0A56C
  39.     CMPI.W    #$8118,D1
  40.     BNE.S    L0674A
  41.     ADDQ.W    #2,A4
  42.     MOVE.W    BV_LINUM(A6),$94(A6) ;current line number
  43.     MOVE.B    BV_STMNT(A6),$96(A6) ;current stmnt on line
  44.     MOVE.B    #2,BV_DAITM(A6)       ;Next DATA item to read
  45. L0676E    MOVEA.L    A4,A0
  46.     MOVEQ    #0,D0
  47. L06772    MOVEA.L    (A7)+,A4
  48.     MOVE.W    (A7)+,BV_STMNT(A6) ;current stmnt on line
  49.     MOVE.L    (A7)+,BV_INLIN(A6) ;Processing in line
  50.                 ; clause or not
  51.     MOVE.L    (A7)+,BV_LINUM(A6) ;current line number
  52.     TST.L    D0
  53.     RTS
  54. L06784    MOVEQ    #-10,D0        ; End of file
  55.     BRA.S    L06772
  56. ; --------------------------------------------------------------
  57. ;*/endfile
  58.